home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Hyperj-Hz / HyprList.cpt / HyperList / background_2679.txt < prev    next >
Text File  |  1987-11-11  |  2KB  |  107 lines
  1. -- background: 2679 from stack: in
  2. -- bmap block id: 3289
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6.  
  7.  
  8. -- part 5 (field)
  9. -- low flags: 01
  10. -- high flags: 2000
  11. -- rect: left=20 top=33 right=278 bottom=484
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: text
  20.  
  21.  
  22. -- part 6 (button)
  23. -- low flags: 00
  24. -- high flags: 0000
  25. -- rect: left=177 top=288 right=317 bottom=209
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 902 / 902
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: prev
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   visual wipe right
  37.   go prev card
  38.   put "Page" && the number of this card into bkgnd field page
  39. end mouseUp
  40.  
  41.  
  42.  
  43. -- part 7 (button)
  44. -- low flags: 00
  45. -- high flags: 0000
  46. -- rect: left=295 top=288 right=317 bottom=327
  47. -- title width / last selected line: 0
  48. -- icon id / first selected line: 26425 / 26425
  49. -- text alignment: 1
  50. -- font id: 0
  51. -- text size: 12
  52. -- style flags: 0
  53. -- line height: 16
  54. -- part name: next
  55. ----- HyperTalk script -----
  56. on mouseUp
  57.   visual wipe left
  58.   go next card
  59.   put "Page" && the number of this card into bkgnd field page
  60. end mouseUp
  61.  
  62.  
  63.  
  64. -- part 8 (field)
  65. -- low flags: 01
  66. -- high flags: 0000
  67. -- rect: left=220 top=297 right=312 bottom=285
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 0 / 0
  70. -- text alignment: 1
  71. -- font id: 3
  72. -- text size: 10
  73. -- style flags: 0
  74. -- line height: 13
  75. -- part name: page
  76.  
  77.  
  78. -- part 10 (button)
  79. -- low flags: 00
  80. -- high flags: 0000
  81. -- rect: left=447 top=290 right=317 bottom=483
  82. -- title width / last selected line: 0
  83. -- icon id / first selected line: 11645 / 11645
  84. -- text alignment: 1
  85. -- font id: 0
  86. -- text size: 12
  87. -- style flags: 0
  88. -- line height: 16
  89. -- part name: random
  90. ----- HyperTalk script -----
  91. on mouseUp
  92.   set the cursor to 4
  93.   set lockscreen to true
  94.   push this card
  95.   go to card "Title Card"
  96.   put card field cards into theList
  97.   pop card
  98.   set lockscreen to false
  99.   DoList "Card","Cancel",theList,one
  100.   get the result
  101.   if it is not empty then
  102.     visual dissolve
  103.     go to card item 2 of it
  104.   end if
  105. end mouseUp
  106.  
  107.